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INTRODUCTION 


In this third of a series of three documents describing the basket 
method of sampling, source computer codes are provided for the conven- 
ience of users who may want to modify the programs to meet special local 
needs. The programming language used is the General Electric Mark III 
version of FORTRAN. These source programs and associated load modules 
are available to all users through the GE/USAF Copper Impact Time 
Sharing System. 

The programs can be run using a load module driver named BASKET* 


with the GE system command: 
RUN BASKET* 


Source programs written in IBM FORTRAN IV are also available from the 
authors. 
The source listing of four main programs and their associated 


subroutines are contained in this document. They are: 


BASKET: A driver program which calls the appropriate 


load modules as specified by the user. 
BASKSIM: Program used during the perspective analysis. 


BASSEL: Program for basket formation to be used in 


actual application. 


BASKAWARD : Program which prices the unsampled proposed based 
on the results of negotiating the proposals in 
the selected basket. ee 
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M66. THIS ALGORETHM SOLVES. THE FCLLEWING PRCELE!". 

wane 

Oye 
20NC GIVEN: (1) A SET CF BIDPRICeE CATA WITH SACH STEM TYPED By 

2100 SOME CUTCISE CRITERTON (1 TO 12 TYPES). 
2ece (2) NUMBER CF CESTRED EASKETS (2 70 19 BASKETS). 
220c 
Z4CC PLACE THE BIDS INTC THE 2ASKETS TO CSTAIN THE FCLLOWING: 
250C 
26ae ) THE BIDS IN ZACH EASKET SECULD BE PEPRESENTATIVE IN 
TCC SIZE OF THE PARENT PCPULATION. 
wee (2) THE COLLECTIVE SITS CF MY TYPE WITUIN EACH EACZET 
29°C ',CULS BE REPRESENTATIVE CF THE PAPENT TYPE PCPULATICN 
4606 (2?) TYE TOTALS CF THE SASKETS SHCLLOD SE SCUAL. 
SGC (4) THE SUNPER CF SIDS Th ANY BASKET SHCULD ff WITHIN 
20S CVE CF THE NUMSER IN ANY OTHER ®ASKET. 
220C (5) THE NUMBER CF SIS OF ANY TYPE I AMY BASCET SHCULD RE 
S4CC Ma ceilil CuE CF THE UMEER Ge STDS CF THE. SAME. TYPE. oN 
25C0C ANY OTHER BASKET. 

ana 

ww 

E7CC THE ALGCRITHM IS aS FCLUCWS. 

I55C 

SGC NCHA = THE NUMBER CF CHARACTER TYPES. 

“CCC MBASK - THE NUMBER CF BASKETS MESTRED. 

CC 

4icc 

420C (1) ae EICDS ARE PLACED INTC NCHAR BASKETS BY CHARACTER TYPES AND 


430C ORDERED WITHIN EACH BASKET BY SIZE FROM LARGEST TC SMALLEST. 
4H4OC (2) HE BIDS ARE PLACED FRCM THESE MCHAR BASKETS INTC THe GIVEN 
4OCC NBASK BASKETS BY GRCUPS CF NBASK, ALL CF A SINGLE Type, AS 
HECC TYPE TC BE PLACED IS DETERMINED 7 C PE THE ONE HAVING THE 


VTOC LARGEST AVERAGE CF THE MEX TBASK BIUS. GHESE RIfS ARE CeeN 
AGOC PLACED INTO THE BASKETS, mie SM ALLEDT: BID GOING. TC THE SACRED 
egac wore THE LARGEST TOTAL, THE “EXT SMALLEST BIO SCINC TC THE 
5COC PACKET WITH THE NEXT LARGEST TOT AND SC ON UNTIL ALL TEE 
5100 BIDS OF THAT GRCUPING suo BEEN PLAC CED. THIS PPCCESS: TS 


52°C REPE ATED UNTIL ALL THE 2290S HAVE SEEN PLACED, 


52uC (3) SINCE THE ABCVE PLACENE? MT CF TYE BIDS | CCES NOT GUARANTEE 
54Cc EQUAL BASKET TOTALS, BIDS CF SIMILAR TYPE ate SWAPPED 
35CC SETWEEN THE LARGEST AND THE SMALLEST BASKET TS UNTIL: SWAPPING 


S0Ce ILL (iC LONGER iMPSCVE THE SALANCE CF THE SASKET TOTALS. 


. ' CADAY 
“adaad PROGRAM 


ell SSPLaY 
CALL TNPUT 

CALL CHBASK 
CALL SSKORD 
CALL BIDORD 
CALL BASKT 

vALL SWAP 
CALL STATS 

CALL CUTPUT 
CALL CONT (G1, 62) 


an 
eras 


oND 


SUBRCUTINE DSPLAY 
WRITE(" rae 
1 PCRMAT(! HTSCEN)/! #1 THX, TH 
&/' ¥*, 30X, "BASKET METHOD' , 31K, saa 4 
2" ¥* UX TVERSICN II] - JUNE 1991',27X, "ty" #t 7Ly 
Eyl Bt 7) RY T4X, "THECRETICAL DEVELOPMENT = DR. 4. Ts WALLENIUS" , 
&15X,'*'/' ¥*,10X,'ALGCRITHM CESIGN AND IMPLEMENTATION -', 
&' DR. STEPHEN BENZ', 10X,'*t/' Pt TUX, tetst RE OEX, ICLEMSONT, 
ye GHIVERS OY 'oecks of © OST k. “CLEMSON CS Co 21k ets ORS, 
74K, ts! ' TA(1#!)) 
“RETURN 
ENE 
wUBRCUTINE INPUT 
INTEGER CHRNAM, CHRRUM , CHRESK 
CCMMCN /CHRCTR/ ‘ICHAR, CHRNAM(12,2),CHRNUM(12) ,CHRESK(12, 2CC) 
CALL NUMBSK 
CALL NUMCHR 
IF (ICHAR. EQ. 1) GC TC 1 
‘LL CHRTYP 


CALL BIDS 
~ 


nETURN 
END 


a7e6 
59¢ SUBROUTINE TILES 

WOOCC READS NUMBER CF SASKETS INTO - NBASK. 
11CC 
1020 INTEGER AMSWR,YES,‘C 
525 aETEGER BASKET, BASK1 
1CHG COMMCN /BASK/ SBASK, BASKET(19, 300) ,PASK1(10, 160) ,PTCTC1C) , SGRCUP 
19EC PATA YES/*Y'/,NO/"°/ 
1062010 WRITEC" " 2) 
1051 PRINT, 
107 «2 FORMAT(' ENTER NUMBER CF BASKETS. ') 
O80 READ(" =", *#) MBAS 
1060 IF CISASK.GE.2. AND. NESSK.LE.1C) RETURN 
1400 wRITE(" We OY SIBASK 
11100) FCRMAT(' '\/,' ### ERROR ##* NUMBER OF BASKETS SPECIFIED,',74,'," 
1122 -,/,15X," IS NCT BETWEEN 2 AND 10 INCLUSIVE. ') 
i150 WRITE (" m4) 


= L: 
Mic FORMAT(’ DO YOU ‘WISH TC REENTER NUMBER CF BASKETS? (YES CR ‘O)") 
5  READ("  ",6) ANSWR 
16C 6 = FORMAT(A1) 
1179 F(ANSWR.EQ.YES) 1 
11EC UF (ANSWR.EQ.NO a 
1160 WRITE" " 7) 
1191 PRINT," 


1200 7 FORMAT('REENTER "YES CR NO"") 


1210 GO TC 5 
1229 END 
122CC 

cuOS 


e8C VUBRCUTINE NUMCIR 
126CC READS MUMBER CF CHARACTER TYPES [SITS - cICHAR. 


: 127Ce 
4 1220 INTEGER ANCWR, YES," 
1200 INTEGER CERNAM, CERNUM, CLIRESK 


Oo 
Oo 
a 


OC CCMMCN /CHRCTR/ CICHAR, CHRMNAM(12,2) , CHRNUM(12) ,CHRSSK(12, 7 
C eATA YES/IY'/ C/U 

C 1 wRITE(" Me) 

1 PRINT, yee 

ce FCRMAT(' ',/,' ENTER NUMBER CF CHARACTER TYPES.') 
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ber eae | n iivahi 
1920 DC 2 Js1,NCHAR 
570 7 TA " wou CLI AT AN Tan 5 
1 du a READ ( gt) (CHRNAM( J, / Kei 2) 
ahs i . 
1O4U 4 ECRMAT(ZAS) 


1460 CC 4 tiz1,NCHAR 

1669 IF (CHRNAM(N, 1).£0.S5LANK.AND. CHRNAM(N,2).EQ.3LANK) GO TO 4 
CCNTINUE 

1680 RETURN 

WRITE(" ".7) NCHAR 

FORMAT(’ ',/,' ##* ERROR **#* NUMBER OF CHARACTER TYPES DOES’, /, 

1710 %17X,' NOT EQUAL',I2,', CR CATA NCT ENTERED IN PROPER FCRMAT.') 

1720 Tec "is 
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FCRMAT(' DC YCU WISH TO RESNTER CHARACTER TYPES? (YES CR NC)') 
READ(" ",10) ANSWR 
FCRMAT(A1) 
Tou iF (ANSWR.EQ. YES) GO TO 1 
1770 IFCANSWR.EC.NO) STO 
175¢ aRITE(" a 


176 PRINT, wee 


oO 


7oo «11 MATC'REENTER "YES. OR HO") 
Tce x 7 a 

121¢ Siw 

1 29C 


Eseee 
18g SUSRCUTINE Ste 
Pisce, “RSAbe pape: 
1250C BIDMUMCH) = BID PRCPOSAL NUMBER. 
ne RIDPRI(N) = BID PRICE. 
: 1880 ETDTYP() = INTEGER VALUES FRCM 1 TC 12 CCRRESPCNDING 
: 1u90c TO TYPE CF BID. 
| 190 INTEGER EDTYP1, BDTYP2, ANSWR, YES, iC 
1901 STRING FILENAM 
1910 INTEGER BIDNUM, BIDTYP, BIDOR 
152 COMNCH /BID/ NBIDS, BIDNUM(3CO) , BIDPRI(2C0) , BIDTYP (200) , BIDOR (160) 
: 1970 INTEGER CHRNAM, CHRNUM, CHRESK, PRCP 
: 164C COMMON /CHRCTR/ ‘ICHAR, CHRNAM(12,2) , CHRNUM(12) ,CHRBSK(12, 20C) 
} 1659 DATA YES/'Y'/,NO/'N'/ 


1G5e 101 PRINT,"ENTER FILENAME" 
1952 INPUT, FILENAM 
1954 CPEN(FILENAM, STATUS="CLD" ,UNIT=9, ERR=11C) 
| 1955 GCTO 106 

1955 110 PRINT,"FILE NCT FCUND" 

1€57 GOTO 101 


1S6C0 1C0 NERRSC 
1970 LF(NCHAR.GT.1) GO TO 2 
19é9 DO 1 NBIDS=1,3C0 
196¢ SIDNUMCUIBIDS )=NBIDS 
acoc I READ(9, *,END=11) BIDPRI(NBIDS) 
2016 70 TO 10 
2020 2 DC $ NBIDS=1,2C0 
2030 EIDNUM(NBIDS )=NBIDS 
20sec? READ(9,*,END=11) BIDPRI(NBIDS) ,BIDTYPCIBIDS) 
2050 IF(1.LE.BIDTYP(NBIDS) .AND.BIDTYP(NBIDS) .LE.NCHAR) Go TO 9 
2060 PRCPSBICNUM(NBIDS )+NERR 
2070 RITEC" 4). PROP SBIDTYPCIBIDS) 


2ceo 4 PCRMAT(' ',/,' *** ERRCR ENCCUNTERED CN PRCPOSAL',T4,'.'/ 


290 &' THE TYPE OF PROPOSAL ',12,' CSCES NCT MATCH WITH ANY OF', 
Z1CC &* THCSE SUBMITTED. ') 

211C NERRSNERR+1 

2120 ARITE(" "32 


2121 PRINT," 
2130 35  FCRMAT(' DO YOU WISH TO OMIT THIS PRCPCSAL FRCM THE ANALYSIS’, 


2140 %" AND CONTINUE? (YES OR NC)') 
2150 5 READ(" ",7) ANSWR 

2160 7 ~~ FCRMAT(A1) 

2170 IF(ANSWR.EG.YES) GO TO 2 

2100 LF (ANSWR.EQ.NC) STOP 

2130 ‘RITE (" " 6) 


2191 PRINT," 

2200 & FCRMAT('REENTER "YES OR HC") 
221C GO TO 6 

2220 ¢ CONTINUE 

22? = 1C— NBIDS=2¢C1 

224 1100 NBIDS=NBICS-1 


2250 RETURN 
2260 END 
2270C 


2etoc 


LT ahi lade Bee or tee Ne 


ete’ 

Zev SUBRCUTINE CHEASK 

2722C PUTS BIDS INTC BASKETS - CHRBSK(N,X) - BY TYPE. 

22200 CHRNUM(M) =< NUMBER CF SIDS CF CHARACTER TYPE N. 

eZhOC 

2350 INTEGER CHARA, ANSWR, YES ,NO 

2360 INTEGER BIDNUM,BIDTYP, BIDCR 

2379 COMMON /BID/ NBIDS,BIDNUM( 200) , EIDP81(300) , BIDTYP(2C0) ,PIDCR(16C) 
2300 TNTEGER BASKET, BASK1 

2508 “LMMCN /BASK/ HBASK, BASKET (10, 306) , BASK1(10, 160) ,BTOT(1C) , NGRCUP 
EUCC INTEGER CHRNAM, CHRNUM, CHRESK 

2440 CCMMCN /CHRCTR/ ‘iCKAR, CHRNAM(12,2) ,CHRNUM(12) ,CHRBSK(12, 200) 
2420 DATA YES/'Y'/,NC/'N'/ 

2439 IF (NCHAR.EQ.1) GO TC 9 

Qu DO 1 CHARA=1,NCHAR 

e4so CHRNUM (CHARA ) =O 

Z'E9 nO 2 HBIDe1,NBIDS 

E470 INCEX=sBICTYP (NETIC) 

2Ueo CRANUM (INDEX) =CHRNUM( INDEX )+1 

aus: 2 CHRBSK (INDEX, CHRNUM( INDEX) )=NEID 

2500 CC & CHARA=1,NCHAR 

251C “F (CHRNUM(CHARA) .GE.NBASK) GO TC ¢ 

2520 WRITE(" 2) CHRNAM(CHARA, 1) ,CHRNAM(CHARA,2) ,CHRNUM(CHARA) , NBASK 
2530 FORMAT(' #* WARNING *## THE NUMBER CF BIDS OF THE TYPE, ',cA4,',' 
25uc yl" TOTALS ONLY, ',I2,', WHICH IS LESS THAN' 
2550 y/,' TLE NUMBER CF BASKETS,',I2,', TO BE FCRMEL.') 
256C WRITE(" "y4) 

2561 PRINT,"" 

25704 FORMAT(' SC YOU WISH TC CCNTINUE? (YES CR NO)') 

2550: 3 READ (" ",6) ANSWR 

25gu 8 FCRMAT(A1) 

2600 aF(ANSWR.EQ.YES) GC TO 3 

2610 TF (ANSWR.EQ.NO) STCP 

2620 WRITE(" Lr, 


2621 PRINT," 
2620 7 FORMAT('REENTER "YES OR NC"') 


2640 w0 TO 5 

2650 «8 CONTINUE 

2669 RETURN 

26709 CHRNUM(1 )=NBIDS 
2680 DO 1C NBID=1,NBIDS 
2690 10 CHRBSK(1,NBID)=N8ID 
Z7ce RETURN 

e710 END 


eee Se inemmeneatiel 


27 s0C 
STAG CUERCUTINE BSKCRD 
27506 PUTS BIDS WITHIN £ACH CRARACTER TYPE ZASKET IN CREER 
2750C FROM LARGEST TC SMALLEST. 
27720 
PERENG) INTEGER CHARA, FIRST, RECENT, TEMP 
276C ewTEGER BIDNUM,SIDTYP, BIDCR 
260 COMMCN /ETD/ NBIDS, BIBNUM(2¢ 00) ,BIDPRI (200) ,EIDTYP(2C0) , BIDOR( 160) 
2a 1C TNTEGER CHRNAM, CHRNUM, CHRESK 
2829 CCMMCN /CHRCTR/ ae CHRNAM(12,2) ,CERNUM( 12), CHRESK (12, ?CO) 
2620 COMMON /PLACE1/INE 
220 IND 1sNCHAR 
2259 CC 5 CHARAS1,NCHAR 
2559 RECENT=1 
eT! LAST=CHRNUM( CHARA) 
226C 1 FIRSTSRECENT+1 
2600 DO 2 J=FIRST,LAST 
29Ge0 JM1sJ=1 
E210 IF (BIDPRI (CHRBSK (CHARA, JM1)).GE.BIDPRI (CHRESK(CHARA,J))) GO TC 
eee RECENT=3é1 
293C TEM P=CHRESK (CHARA, JM1) 
204 CHRESK (CHARA, JM1)=CHRBSK (CHARA, J) 
2350 CHRBSK (CHARA, J) =TEMP 
25st 2 CONTINUE 
ecto TF (SECENT+1.EQ.FIRST) GO TO 5 
Z298C LASTsRECENT 
2096 J=LAST 
3ccc e: JM1s0=1 
301C LF (2TDPRI (CHRESK (CEARA, JM1)) .GE.EIDPRI(CHRESK(CHARA,J))) GO TC 4 
7CE0 RECENT=J 
2020 TEMP= CHRBSK (CHARA, JM1) 
TONG HRBSK (CHARA, JM1)=CER RBSK (CHARA, J) 
2050 CHRESK (CHARA, J) =TEMP 
5060) fetes 
267C LF(J.GE.FIRST) GO TO 3 
3060 “F(RSCENT, LT.LAST) GC TC 1 
2050 = 5 CONTINUE 
3109 wETURN 
3110 “yD 
=720C 
T150C 
2140 SUBRCUTINE BIDCRD 
,15CC  8=9CETERMINES CROER IN WHICH SIDS WILL SE PLACED IN GRCUPS OF NBASK. 
Z16CC CREATES - BIDCR(!) - WHICH IS THE INDEX OF THE CHARACTERISTIC 
ol7CC 3=9CF THE NTH EID GROUPING. 
F1EGC NGRCUP = UUMEER OF SUCK GRCUPINGS. 
1990C 
2200 TLTEGER CHARA 
221C INTEGER BIDNUM, BIDTYP, BIDO 
7220 -MMCH /BID/ NBIDS , BIDNUM(200) , LI DPRI (200) ,BIDTYP(2C0) ,BIDCR(1EC 
7230 INTEGER BASKET ,PASK1 
220 COMMCH /BASK/ IBASK , BASKET (10,500) ,SASK1(1C, 160) ,ETCT(1C) ,NGRCUP 
7250 TNTEGER CHRNAM, CHRNUM, CHRESK 
226C COMMON /CHRCTR/ CHAR .CURNAM (12,2 ycHRMUM( 12) ,CHRESK(12, 200) 
27C LOMMEN /AVGORD/AVG (12) ,ICHR(12) , NUMBID, NCHAR1, MAX 


ee, CHAR TSNCHAR 

eee eect 

oee8 nMBIDS0 

521C =F (SCHAR. ECs 1) Ge Te 4 
2226 Co 1 CHARAs1,“CHAR 
3229 1 CHR (CHARA) =9 

3340 DO 3 N=1,H0C 

S550 IF(NUMBID.GE.MBIDS) RETURN 
5260 CALL MAXAVG 

2370 NGRCUPsNGRCUP +1 

SC QIDOR CIGRCUP ) =MAX 
43063 CONTINUE 

S4C0 RETURN 

s4ic NGRCUPSNBIDS/NBASK 

3426 TE (NBASK*NGRCUP ME, S Bibs) NGRCUP=NGRCUP+1 
343C CO 5 NGRCU=1,NGROUP 
3440S BIDOR(NGRCU)=1 

EH5C NCH& (1) =NBIDS 

2HEO RETUR! 

S4u7e END 

TYECT 

345CC 

=500 SUBRCUTINE MAXAVG 


3510C CALCULATES AVERAGE OF THE NEXT NBASK BIDS CF EACH CHARACTERISTIC 
s52CC =6 TYPE, AND RETURNS THE INDEX OF THE CHARACTERISTIC TYPE HAVING THE 
520C LARGEST AVERAGE. 


25L0C NCHR(I) - INDEX OF POSITIC’ TO BEGIN AVERAGE OF BIDS FOR 
3550C CHARACTERISTIC TYPE NN. 
2560C 
357¢ “NTEGER START, END 
3520 aNTEGER CHRNAM, CHRNUM, CHRESK 
2350 THTRGER BIDUUM, oe BIDOR 
ECO INTEGER BASKET , BAS 
2610 COMMON /BASK/ ree BASKET (19,200), BASK1(10, 160) ,ETOTC1C} , iGRCUP 
3620 CCMMON /BID/ NBIDS ,DIDWUM(300) , BIDPRE (200), BIBTYP(205) , BIDOR (160) 
3630 CCOMMC!H /CHRCTR/ NCHAR, CHRHAM(12,2) ,CHRNUM(12) , CHRBSK (12, 200) 
2640 SCION VANGCRD/AVE(12) CER (12) “SIMETD CHART MAX 
3650 MpX=1 
268C DC 2 N=1,NCHAR1 
3670 VG(N)=0 
368C STARTSNCHR(N) 41 
265C EMD=NCHR (N)+NBASK 
a700 TF(SND.GT.CHRNUM(N)) EMDSCHRNUM(N) 
3710 “F(START.GT.END) SO TO 2 
3720 DC 1 JeSTART, END 
37301 AVG (11) 2AVG (11) +#BIDPRI (CHRBSK(N, J)) 
2740 IF(START.EQ.END) GC TO 2 
3750 AVG(N)SAVG(4N)/(END-START) 
2260s). 2 IF(AVG(N) .LT.AVGCMAX)) GO TO 2 
2770 MAYEN 
ITEC MAXBDSSEND=START+1 
2760 2 CCITINUE 
"600 NUMBIDSNUMBIDSMAXBDS 
apie NCHR (MAX ) 2tICHR (MAX) 4¥AXRES 
7220 PETURN 
7870 = 


2296 ‘VBRCUTINE BASK 
752CC PLACES SIDS INTO BASKETS ACCORDING TO SIDOR AND BASKET TCTALS. 
2259¢ STCT(N) - TOTAL OF BIDS IN BASKET ', 


avy or eee anes 7) per ere) 4 

G10 PEAL WIDEC1C) 

2920 TNTEGER START(12),UP1(10) ,CRUJ,CRDER1(19) ,;CRDER2(1C) , SILORT 
SGzC THTEGER CHRNAM, CHRNUM, CHRESZY 

T5940 INTEGER BIDNUM, 2IDTYP, BIDOR 

=95C TNHTEGER BASKET, BASK1 

ats 


C 
0 COMMCN /EASK/ NPASK,EASKET(10, 200) ,BASK1(1C, 140) ,BTOTCIC) GROUP 
° COMMCH /BID/ NBIDS, BIDNUM(2C0) , BIDPRI(200) , BIDTYP (200) , RIDCR(1E0 
2) LCMMOW /CHRCTR/ NCHAR,CHRNAM( 12,2) ,CHRNUM(12), CHRBSK(12, 2CO) 
0 
0 


269 CONMCN /AVGORD/ AVG (12) ,NCH8 (12) ,HUMBID , NCHAR1,MAX 
4CC DO 1 ie1,NBASK 

401C DECI) =9 

4020 _aCT(N)=0 

LOI 1 OUP T(N) st 

sC4O DO 20 Nel, NCHAR 

ucsC = 20 START (11) =0 

4C6O “9 § T=1,NGROUP 

4070 BIDCRI=BIDOR(T) 

4680 NUMLEF=NCHR (BIDORI)-START (BIDCRI) 
4OSO CALL ORDER(ORDER1, BTOT, NBASK) 

4100 TF(NUMLEF..LT.NBASK) GO TO 2 

41IG DO 2 J=1,NBASK 

4120 ORJeORDER1 (J) 

4129 THDEX=CHRBSK(BIDCRI , START (BIDORI) +d) 
4qug PRICESBIDPRI (INDEX) 

4150 BASKET (ORJ, I) =IMDEX 

160 2 &TCT(CRJ)SBTCT(ORJ)+PRICE 

TTC START (BIDORI )=START (BIDORI)+NBASK 
4120 sO TO 6 

4160 3 CALL UPONE(ORDER1,ORDER2,NBASK,UP1, NUMLEF) 
420 nVGE=0. 

4240 DO 4 Jel, NUMLEF 

4220 ORJsORDER2 (J) 

4236 INDEX=CHRESK (BIDORI , START (BIDORI) +d) 
42H PRICE=BIDPRI (INDEX) 

425° BASKET (ORJ , I) s INDEX 

4260 AVGESAVGE+PRICE 

427C &  — ATOT(ORS)sBTOT(CRJ)+PRICE 

b229 AVGEZAVGE/NUMLEF 

4200 “IMLEF 1 sNUMLEF +1 

4209 20 5 JaNMLEF1,NBASX 

4210 ORJ=ORDER2 (J) 


4320C 


Tike tee ee ee 
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BUS 
S60 
4470 
LEGO 

4490 
£500 
L51CC 
452CC 
4520 

4S40C 
455cC 
&E60C 
4570 

4520 

45°00 

LEGO 

4610 
UB20 

4620 
aed 

4650 
569 
4670 

ESC 

4OS9 
4790 
i710 
4720 
aF30 
&THOC 
4750 
47hC 
4775C 
47 SCC 
47G$CC 
WEOCC 
4510 
UceCc 
4U2s0 
4ene 
4550 
uUgso 


EPC 


tot cacao en  eemamealior ad a acer aa 


SHEN NUMBER CF BIDS LEFT [OF ANY PARTICULAR CHARACTERISTIC TYPE 
To LESS THAN NUMBER OF BASKETS, THE AVERACE OF THESE BIDS IS 
CALCULATED, THE BIDS ARE PLACED INTG THE BASKETS, #NnD THE 
REMAINING UNFILLED BASKETS RECEIVE THE AVERAGE CF THE PILS, 
(SINCE BASKET(I,X) CCUTAINS CNLY INDICES CF PRCPCSALS AND NCT 
ACTUAL BID PRICES, THE UNFILLED 3ASKETS RECEIVE THE VALUE -1 
INTC BASKET(N,«).) 
HIDECS) - ACCUMULATES THE PHANTCM AVERAGES IN SASKET 
FOR LATER CCRRECTION CF 8TOT(N). 


BASKET (ORJ,I)==1 

HIDE (ORJ ) stITDE (ORJ )+AVGE 
RTOT (CRU) =BTOT (CRU) +AVGE 
CONTINUE 

DC 7 Jz1,NBASK 
BICT(J}=BTOT(J)-HIDE (J) 
RETURN 

EY 


nv 


~] 


SUBROUTINE ORDER (CRDER1, 2TOT, NEASK) 
CRCERS THE BASKET INDICES INTC - ORDER1 - FRCM SMALLEST SASKET 
TO LARGEST BASKET. 


INTEGER ORDER1(1C) 
REAL 8TOT(10) 
DC 1 N2t,MBASK 

1 ORDERI(H)zt 
NBAS%1=!BASK-1 
DO 3 N21, NBASK1 
MIMSN 


NBASKZsN+1 

CO 2 AstBASK2, IBASK 

TF CETCTCORDER1 (MIN) ) LE. BTCT(ORDERI(K))) GO TO 2 
ITEMPSORCDER 1 (MIN 

ORDER 1(MIN SCRDER1(K) 

CROER1(K)sITEMP 


e CONTINUE 

5 CONTINUE 
RETURH 
END 


SUERCUTINE UPONE(CREER1,CRCER2,I-BASK,UP 1, NUMLEF ) 
CETERMINES WHICH GASKETS HAVE CNE MORE BID THAN OTHERS AND RETURNS 
~ CRDER2 - THE ‘EW CRDER CF SASKET INDICES SEFLECTING SMALLEST TO 
LARGEST AND NUMBER OF BIDS IN BASKETS. 


INT. SER ORDER1(10) ,ORDER2(1C) ,UP1(1C) ,ENDJ ,STARTJ 
STARTJ=0 

DO i [21,WBASK 

oe CUPTCORCER ICE) BOR 19 60. TC 1 

STARTJsSTARTJ+1 

CRDERZ (STARTJ) =CRCER1(T) 


1 “CONTINUE 


xe) 


~] ns. 


— AD 
— 


HEC) GO TS 2 
BAS 


13 CRDER1(J) 


ie 2 
ae 


(” a 


TARTJ.EC.NBASK) GO TO & 
ENDJ=STARTJ 
pC & T=21,NBASK 
TF (UP1(ORDERI(T)) .EC.C) GO TO 4 
EXNDJSENDJ+1 
~RDER2 (ENDJ )=ORDER 1 (7) 
CONTINUE 
ae STARTJ. GE.NMUMLEF) GO TC 10 
§ Je1,NUMLEF 
ESP ORGEROUIN) BOSS) UP 1(ORDER2(J)) 
IFCUPI(CRDER2(J)) .EQ.1) UP1(ORDER2(J)) 
NMLEF 1=NUMLEF +1 
Cc 7 JeNMLEF1, 'BASK 
UP 1(ORDER2(J))=C 
RETURN 
NMLEF 1 =NUMLEF +1 
DO 9 JeNMLEF 1, NBASK 
UP1(ORDER2(J))= 0 
CC 11 J=1,NUMLEF 
UP1(CRDERZ(J))=1 
RETURN 
END 


¢ 
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SUBROUTINE SWAP 


PERFORMS A BID SWAP BETWEEN BASKETS TC BALANCE SASKET TOTALS. 


LGRSK: = INCEX ‘CE LARGEST “BASKET iT RESPECT TG SASKET TCTsLS. 
SMESK - INDEX CF SMALL BASKDET. 


INTEGER ORCER1(10),&SK,SWTCH1,SwTCH2 

INTEGER BIDNUM,EIDTYP,BIDCR 

COMMCN /BID/ MBIDS , BIDNUM(2¢ GO), BICPRI (200) ,Br0TYPC25C) ,BIDOR( 160) 
TEGER BASKET, BASK1 

CCMMCH /BASK/ NBASK, EASKET(10,3C0), BASK1(10, 169) ,PTCT (10) , wGRCUP 

INTEGER CHRMAM, CHRNUM, CHRESK 

COMMCN /CHRCTR/ “ICKAR,CHRNAM( 12,2) ,CHRNUM (12) ,CHRBSK(12, 20 

owTEGER LGBSK,LGINC, SMBSK , SMIND,STARTC, CHAR 

COMMON /SWAP1/LGBSK, LGT! ID, SS3SK ,oST? iD, STARTC( 12), CHAR 
CALL SETUP 

CALL ORDER (ORDER1, BTOT, NEASK) 

CC 2 Ns2,NBASK 

LGBSX=ORDER 1 (NBASK-t+2) 

NBASK 1=NBASK=1 

DO 2 K21,NBASK 

SYESKSOREERI (2) 

DIFF =BTOT (LGBSK )-8TOT (SMBSK) 

F(DIFF.ES.0.) GO TO 2 


‘4a HW) 


tad 


TALL DIFENT (SwIChe , OTEP) 

Se Sal DeneeCy Go, S04 

CONTINUE 

CONTINUE 

RETURK 

DIFF=BIDPRI (B34SK1(LGBSK , LGIND) )-RIDPRI(BASK1 (SMBEK ,EMINID) ) 
RTOT (LGESK) =BTCT (LGBSK ) -DIFF 

STCT (SMBSK ) =BTCT (SMBSK )+DIFF 

CALL PLACE 

GC TO 3 


END 


SUBRCUTINE SETUP 


ITIALIZES = BASK1(N,K) - TO BE THE SAME AS - BASKET(N,X) = BUT . 
‘WNiTH BIDS PLACED TCGETHER WITHIN BASKETS BY CHARACTERISTIC TYPE. 


NOTE: BIDS WILL ALSO BE IN CRDER FRCM LARGEST TO SMALLEST 
WITHIN CHARACTER GRCUPINGS SINCE BASKET WAS CRDERED. 


INTEGER CCUNT(12) ,POS,ESK 
LNTEGER BIDNUM, BIDTYP, BIDOR 
LONMCN /BID/ NBIDS, BIDNUM(3CC) , BIDPRI(3C0) , BIDTYP(30C) , BIDCR( 160) 
INTEGER BASKET, S3ASK1 

COMMCN /BASK/ NBASK,BASKET(10,20C) , BASK1(1C, 160) ,ETOT(1C) , NGRCUP 
INTEGER CHRMAM, CHRNUM, CHRBSK 

COMMON /CERCTR/ NCHAR,CHRNAM(12,2) , CHRNUM(12) , CHRBSK(12, 2C0) 
INTEGER LGBSK,LGIND,SMESK,SMIND, STARTC, CHAR 

COMMON /SWAP1/LGBSK,LGIND ,SMESK, SHIND ,STARTC(12) ,CHAR 

DO 1 Nst,NCHAR 

COUNT (N)=0 

CO 2 N=1,NGROUP 

UMBSBIDCR (N) 

COUNT (IUMB) =CCUNT (NUMB) +1 

STARTC(1)=1 

DO 2 N=2,NCHAR 

ETARTC (31) =COUNT (N=1)+STARTC(N=1) 

COUNT (N-1)20 

COUNT (NCHAR)=0 

DO 5 ‘l=21,NGROUP 
“UMS=BIDOR (N) 

2OS=STARTC (NUMB)+CCUNT (NUMB) 
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sa00 ME DIFENT(SwTCH2, LTPP) 
S300¢ TE/SHICH BID SWAPS FOR GIVEN BASKETS SILL PSCTUCE A 
Sa00C sce 
SOC “Teper OP GED. TC-EE SyAPPED rc 2b LARGE Piece. 
| Sieh pee TREK “oe Ste SO Ee. Ss ets QUT OF SMALL SASZET. 
55200 
| $575 PMT GER ACH 1 SUT OR ST eT See Cusp 
| 5a48¢ INTEGE® BIDNUM,ETOTYP, BIDCR 
55930 CONVOY /BID/ NBIDS, BIDNUM(7CC) , RIDPRT (200) BILTYP(20C) ,ETTOR CIES) 
} RGA pol tia otal nd a} BASKET Ane * 
ae ene saa a Lee Ble h. Cle OS) BACKTOIG 169) BTCTCIC) MGRCU 
' epee eat. aoke SASls 31 bee tees 4 pee Ne dey (lp yD iva be) ge meu 
3 5520 THTEGER CHRMAM, CHR'L, CHRESK 
536C COMMON /CERCTR/ NICHAR, CHRNAM(12,2) ,CHPNUM (12) , CHRISK (12, 200) 
ecco INTEGER LOBSK,LOIND,SMBSK,SMIND, STARTC, CHAR 
inate COMNCM CAP 1/LGREK, LGIND, SMBSK, SIND, STARTC( 12), CHAR 
| e0et SMIND=O 
7 cane DIFF 1=0 
HOLS PC 2 CHARASI NCAR 
, 3052 STRTSSTARTC (CHARA 
3060 STP=!GRCUP 
set sa PP (CHARA LT. CHAR )STPSSTARTC( CHAP A+1)=1 
j BCE aS SsTSWSSTRT STP \ 
Sago ane Shaan ICRGESK Sai oul) 
S160 TFCTEDI.EC <1) GO Te 2 
S41¢ PRICE 1s3IDPRi(THD1) 
a oe 1Sy ee etite iy 
: $429 INDQSBASK1(SMBSK , SWTCH2) 
TING TF(IND2.20.-1, 150 oe 
£450 PRICEQSEIDPRI (Tib2) 
AILS DIFFZ=PRICE1-PRICE2 | 
| S170 iF (DIFF2. L=.C.) GC TO 1 
AIC S5(DIFFS.92 DIFF) GO 72.2 
3163 TF(ABS(DTFFO-D7FF/2,).GE.ABS(DIFFI-DIFF/2.)) 32 To 2 
Bele Ceri =DIFF2 
5216 USTIDsSwTCcH 1 
220 SMINDSSNTCH2 
£230 CUARSCHARA 
SeNe LF(DIFF2.EQ.C02FF/2.) RETUR' : 
S250 1 CONTINUE 
4269002 CCNTINUE 
seve 3 CONT RIUE 
£224 RETURN 
; boot aoe 
S0CG 
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CALL DUT (LGESY ,LOTNE, CHAR) 


mete DIM (sume TTI AtIADyY 
» 


eet ee ae TN ge et woke 


SUPLOUPINE PUT BCR Torn CHAP P1) 


re O18) Jetty alee gies 


MOVES "NEW BID’ INTO PRCPER CRDERED PCSITICN ‘NITHIN CHARACTER TYPE 


wee whee eit 


GROUPING WITHIN CASKET. 


TNTEGSER BIDNUM, BIDTYP,GIDCR 


CCERGH BIDS SETCS SEbie (300); SIDPRECsCG) SroTyP(200) ,EIPeRCice) 
[ITEGER ni QASKET ts ASK 


aba sees Noi yl MN 


COMMGH -/SASK/ SEASA, BASKET(10, 3CC), BASKIC1C, 160) ,ETOTCIG) ..GROUP 
INTEGER CHRMAL, CEREUM, CHRESK 
COMMCH /CHR C7R/ NCHAR , CURNAM( 12,2), CERNUM(12) ,CHRESX(12, 30°} 


INTEGER LGSSK,LGIND ,SMBOK,CMIND,STARTC, CHAS 
COMIC SNAP1/LG SX, LGIND, SMESK,SMIND, STARTC( 12), CHAR 
INTEGER BS4,CHAR 1, STRT, STP 


<P UND EC.STARTC(CUART)) GC TO é 
TF(aItD aT (BASKICS nev IUD L=.BIDP RTCPACe1 (ROK Sal af San >} FEN: PRY a 


oars reretan gives) ereeey ene tt Coin ete 


eTs RTC(CHAR1) 


STRTSS TAR 


STPsiInD=i 


aoe 
oO 1 £sST2T,STP 
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ARSSTP+STRT n+ 


wy ee 
“AX T2kn-1 


TF (SIDPRI(EASKT (25K, “K)). LE. SIDPRICSASH (ESL, X41))) RETUPT 
TIMP SPAGK1 CESK, EK) 


nae - yey maava( Rey ey 
BASH (BEX, KA) 2BASE EOK,KK1) 


PACK TCESK , AK TS TEYP 
reat 


ZETERN 

STRTSIND 
F(STRT.EQ.NGRCUP) RETURN 

STP =IGRCUP- 1 
F(CHART.LT.CUAR) STPsSTARTC(CHAR 141) <2 
F(STRT.GT.STP) RETURN 
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Tr CRACK T(ESK,A+1) EC, =1) SETUP 

iS (SIDPRI(OASKA1(DSK,4)) GE. STDPRI (CSAS 1CSSK Xe1))) SETUEN 


TEMP=SEASK 1 (CESK ,K 
EACNT CICK, K)SBASK1 (CESK X41) 
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BACK (ESA, L412 TEMP 
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[ULATED PER CENT SRECR SOUNDS 
wou ~e 


sett Whe Laineh wUls ibe 


repre noK sORDER NC alien) 


ere Oe ALN 


verse wap 
wee iby Oy Lig RA 


SEAL LOWEMD* 
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‘i c ha) wayvETOE yar SR orponen 
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wo: Ne phew Lay Ur i 
INTEGER BRENET, SACK 

Cored, JESSE/ HE aSe RaOMET (4:0, 89C)5 SASK CT y 1629 FSIS GROUP 
CALL ORDER(ORIERT, ETOT, NEASK) 
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